home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / md2yam.lha / MD2Yam.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-12  |  1.6 KB  |  69 lines
  1. /*******************************************************
  2.  * $VER: MD2Yam.rexx V1.0 (24-Feb-98) by Mark Yovorsky *
  3.  *                                                     *
  4.  * Convert Microdot-II bookmarks to YAM V2.0 format    *
  5.  *                                                     *
  6.  *   www.interlog.com/~vista / vista@interlog.com      *
  7.  *******************************************************/
  8.  
  9. OPTIONS RESULTS
  10. parse arg mdpath yampath
  11.  
  12. /* Check files */
  13. IF ~EXISTS(mdpath) then do
  14.     SAY "Can't find" mdpath
  15.     exit
  16. end
  17.  
  18. IF ~EXISTS(yampath) then do
  19.     SAY "Can't find" yampath
  20.     exit
  21. end
  22.  
  23. IF ~OPEN('MD',MDPath,'R') THEN DO
  24.     SAY "Can't open" mdpath
  25.     EXIT
  26. END
  27.  
  28. IF ~OPEN('Yam',YAMPath,'A') THEN DO
  29.     SAY "Can't open" yampath
  30.     EXIT
  31. END
  32.  
  33.  
  34. /* Read source file */
  35. CALL READLN('MD') /* Header */
  36.  
  37. DO UNTIL EOF('MD')
  38.     Line=READLN('MD')
  39.     SELECT
  40.     WHEN LEFT(Line,1)="»" THEN DO   /* Group */
  41.         CALL WRITELN('Yam','@GROUP' RIGHT(Line,LENGTH(Line)-1))
  42.         CALL WRITELN('Yam','')
  43.     END
  44.  
  45.     WHEN LEFT(Line,1)="«" THEN      /* End Group */
  46.         CALL WRITELN('Yam','@ENDGROUP')
  47.  
  48.     OTHERWISE DO                    /* User */
  49.         PARSE VAR Line Name'|'address
  50.  
  51.         CALL WRITELN('Yam','@USER')
  52.         CALL WRITELN('Yam',address)
  53.         CALL WRITELN('Yam',name)
  54.         CALL WRITELN('Yam','')
  55.         CALL WRITELN('Yam','')
  56.         CALL WRITELN('Yam','')
  57.         CALL WRITELN('Yam','')
  58.         CALL WRITELN('Yam','')
  59.         CALL WRITELN('Yam','00000000')
  60.         CALL WRITELN('Yam','')
  61.         CALL WRITELN('Yam','')
  62.         CALL WRITELN('Yam','')
  63.         CALL WRITELN('Yam','@ENDUSER')
  64.     END
  65.     END
  66. END
  67.  
  68. SAY "Finished converting file. Enjoy :)"
  69.